% Build the Images.ozf functor
functor
import
   Application
   QTk at 'x-oz://system/wp/QTk.ozf'
define
   L = {QTk.newImageLibrary}
   {L newPhoto(name: mozartPowered  file: "mozart-powered-75.gif")}
   {QTk.saveImageLibrary L "Images.ozf"}
   {Application.exit 0}
end
